#! /usr/bin/env Rscript
# Grafica el cubrimiento en funcion de la cantidad de palabras. Estos valores se obtuvieron con código Java.
par(ask=TRUE)
x = c(50,100,150,200,250,300,350,400,450,500,550,600,650,700,750,800,850,900,950,1000,1050,1100,1150,1200,1250,1300,1350,1400,1450,1500,1550,1600,1650,1700,1750,1800,1850,1900,1950,2000,2050,2100,2150,2200,2250,2300,2350,2400,2450)
coverage = c(5.023560823035891,9.601016533613702,13.918352307833807,17.628927997322368,19.1870240913845,20.349634104995452,21.87686447470877,22.932184140935792,23.778964360101238,24.81164987338239,26.297917581929408,27.091751831944137,27.90416519487903,29.043705685655315,29.978145647206293,30.80164358247895,31.627279858062078,32.263589852174356,32.99393323631896,33.680935925125304,34.44264574012272,35.007308595827496,35.636356360844175,36.12582314426805,36.71297061836075,37.266248239697745,37.61821915003343,37.98075345328192,38.531725735544335,38.913823124168474,39.46543549410338,39.824659521825716,40.23567316448694,40.56216421274457,40.763045868613744,40.999483881876245,41.25523481912822,41.44575252752889,41.84561427095626,42.14145559156782,42.48335436451839,42.77604640073604,43.091705558404584,43.382649605438175,43.600396014953716,43.86095865696122,44.037743417424174,44.26791517280403,44.569970275215496)
jpeg("cubrimientoCiao.jpg")
plot(x, coverage, type="o", col="blue", ylim=c(0,50), main=paste("Cubrimiento"), xlab=paste("Cant. de palabras"), ylab=paste("Porcentaje de cubrimiento"))
dev.off()
